\font\rm=cmr12 % main text
\font\it=cmti12 % main text, emphasis
\font\csc=cmcsc10 scaled\magstep1 % main text, first few words
\font\ref=cmbx7 % name of chapter and verse
\font\verserm=bibl12[316,dek] % verse text
\font\chap=cmcsc10 scaled\magstep3 % chapter title
\font\name=cmss8 % calligrapher's name
\font\no=cmmi10 % page number

\hyphenation{English}

\hsize=5.5in
\hoffset=.75in
\newdimen\pagesize \pagesize=39pc
\newdimen\fullsize \fullsize=40.5pc % includes page number at bottom
\baselineskip=13pt
\topskip=\baselineskip \splittopskip=\topskip

\parindent=20pt
\tolerance=1000
\def\strut{\vbox to\baselineskip{}}
\let\,=\thinspace
\def\:{\,:\,}
\def\*{\hbox{--}}

\newcount\pg \newcount\n
\newdimen\d \newdimen\z
\def\savepg{\endgraf\pg=\prevgraf\everypar{\prevgraf=\pg}\parshape=\ps}
\def\makeps{\global\n=14 \begingroup
  \aftergroup\edef\aftergroup\ps\aftergroup{\aftergroup\beginps
  \d=\ht2 \loop \ifdim\d>\baselineskip \aftergroup\moreps \global\advance\n 1
  \advance\d -\baselineskip\repeat \aftergroup\endps\aftergroup}\endgroup}
\def\beginps{\the\n
  \endps \endps \endps \endps \endps \endps \endps \endps \endps \endps \endps
  \moreps \moreps}
\newdimen\in \in=3.0in \newdimen\rin \rin=\hsize \advance\rin-\in
\def\moreps{\in \rin}
\def\endps{\z \hsize}

%\newbox\corners
%\setbox\corners=\vbox{\kern1pc
%  \line{\vrule height 10pt \vrule width 10pt height .4pt
%    \hfill\vrule width 10pt height .4pt \vrule}}
%\ht\corners=\z \dp\corners=\z

\def\beginbook#1\\{\message{#1}
  \setbox0=\vbox to\pagesize\bgroup\rm
  \noindent\strut
  \smash{\chap#1 }\ignorespaces}

\def\callig#1\par{\vss\egroup
  \shipout\vbox to\fullsize{\box0\vfil
    \llap{\advancepageno \no\folio\qquad}}
  \def\calname{#1}}

\def\verse#1 #2:#3 #4\par #5\\{
  \shipout\vbox to\fullsize{
    \vbox to\pagesize{\vfill
      \line{\name #1 #2\:#3\hfil\calname}}
    \vfill\centerline{\advancepageno\no\folio}}
  \setbox2=\vbox{\hsize=3.6in
    \noindent\strut\ref\uppercase{#1} #2\:#3\par
    \noindent\verserm #4}
  \makeps \setbox0=\vbox\bgroup\rm \let\par=\savepg
  \noindent\strut
  {\csc#5 }\ignorespaces}

\catcode`\$=\active \def${\hfil\break\null\ignorespaces} % $ means newline

\def\endbook{\egroup
  \shipout\vbox to\fullsize{
    \vbox to\z{\kern12.4pc
      \ht2=\z \dp2=\z \moveleft.8in\box2 \vss}
    \nointerlineskip
    \vsplit0 to \pagesize
    \vfil\llap{\advancepageno \no\folio\qquad}}
  \shipout\vbox to\fullsize{\box0
    \vfil\rightline{\rlap{\advancepageno\no\qquad\folio}}}}

\rm

\def\test#1\par{{\hbadness=-1 #1\par}}